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Why demonstrating a MIDI software synthesizer? 


1. Both audio rate and control rate. 

2. Variable polyphony. 

3. Data allocation. 

4. Bus routing. 
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Basic MIDI Soft Synth 


Implementing what is probably the simplest type of MIDI Soft Synth. 
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Basic MIDI Soft Synth 


Basic MIDI Soft Synth 

(<rt-stalin> 

(range note-num 0 128 

(define phase 0.0) 

(define volume 0.0) 

(sound 

(out (* volume (sin phase))) 

(inc! phase (midi->radians note-num))) 

(spawn 

(while #t 

(wait-midi :command note-on inote note-num 
(set! volume (midi-vol))) 

(wait-midi :command note-off :note note-num 
(set! volume 0.0)))))) 
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► Rollendurchmesserzeitsammler 
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Realtime Memory Allocation and Garbage Collection 


Example 

(define-stalin (softsynth) 
(while #t 

(wait-midi :command note-on 
(define phase 0.0) 

(define tone (sound 


(spawn 

(out (* (midi-vol) (sin phase))) 

(inc! phase (midi->radians (note-num)))) 


(wait-midi :command note-off inote (midi-note) 
(stop tone)))))) 

(<rt-stalin> 

(softsynth)) 

« □ ► < 3 > <!► « 1 ► 


Implementing a Polyphonic MIDI Software J May 1, 2010 


Kjetil Matheussen (NOTAM) 


• 0^0 

9/23 




ADSR 


Need to remove clicks when starting and stopping tones. 
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Example 


ADSR 


(define-stalin (softsynth) 

(while #t 

(wait-midi :command note-on 
(spawn 

(define volume (midi-vol)) 

(define phase 0.0) 

(define adsr (make-adsr :a 20:-ms :d 20:-ms :s 0.2 :r 
(define tone (sound :while (-> adsr is-running) 

(out (* volume 

(-> adsr next) 

(sin phase))) 

(inc! phase (midi->radians (midi-note)] 
(wait-midi :command note-off mote (midi-note) 

(-> adsr stop)))))) 
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Reverb 


1. Dynamic scoping 

2. Auto-Allocated variables 
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Example 


Reverb 


(define-stalin (reverb input delay-time) 

(delay :size (* delay-time (mus-srate)) 

(+ (comb :scaler 0.742 :size 9601 allpass-composed) 
(comb :scaler 0.733 :size 10007 allpass-composed) 
(comb :scaler 0.715 :size 10799 allpass-composed) 
(comb :scaler 0.697 :size 11597 allpass-composed) 
:where allpass-composed 
(send input :through 

(all-pass :feedback -0.7 :feedforward 0.7) 
(all-pass :feedback -0.7 :feedforward 0.7) 
(all-pass :feedback -0.7 :feedforward 0.7) 
(all-pass :feedback -0.7 :feedforward 0.7)))) 
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Simple Stereo Reverb 


/ 

(softsynth)—< 

\ 


+— (reverb 0.13) —> out ch 0 


+— (reverb 0.11) —> out ch 1 
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CPS Sound Generators. (Adding stereo reverb and 
autopanning) 


1. Sound Generators, inspired by Faust / BDA 

2. CPS is a programming technique 

3. CPS means that no function will ever return 

4. CPS provides a simple way to support more than one output 
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Seq Operator 


(Seq (between -1.0 1.0) 
(* 0.5)) 


-> 

(let ((generatorO (lambda (kontO) 

(kontO (between -1.0 1.0)))) 
(generatorl (lambda (argl kontl) 

(kontl (* 0.5 argl))))) 

(lambda (kont2) 

(generatorO (lambda (resultO) 

(generatorl resultO kont2))))) 
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Par Operator 


(Par (* -1) 
(* l)) 


-> 

(let ((generatorO (lambda (argl kontO) 

(kontO (* -1 argl)))) 
(generatorl (lambda (argl kontl) 

(kontl (* 1 argl))))) 
(lambda (input2 input3 kontl) 

(generatorO input2 
(lambda (resultO) 

(generatorl input3 
(lambda (resultl) 

(kontl resultO resultl))))))) 
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Auto-Allocated variables in CPS Generators 


(Seq (all-pass :feedback -0.7 :feedforward 0.7)) 
-> 


(let ((generatorO (let ((varO (make-all-pass :feedback -0.7 

:feedforward 0.7] 


(lambda (kont input) 

(kont (all-pass varO input)))))) 

(lambda (input kont) 

(generatorO input kont))) 
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Other CPS Generators 


Split, Merge, Identity, Cut, Sum, Prod, Lambda, Buffer, Counter, 
Read-table, Sin, Incrementer, Osc and In. 
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Final version of the Midi Soft Synth 


Final version of the MIDI Soft Synth. 
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Summary 


Summary 


► Garbage collection, Functional Programming, Coroutines, Faust 
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Questions. 
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